home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / demo 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  152 b   |  6 lines
  1. 10 print"[147]":t=1
  2. 20 q$="[165][165][212][212][199][194][194][200][217][167][167][167][217][200][194][194][199][212][165]":q$=q$+q$:poke53281,c:poke53280,c
  3. 30 t=t+1:poke646,t:fors=1to150:q$=mid$(q$,2,55)+left$(q$,1)
  4. 40 printq$:next:c=int(rnd(0)*16)
  5. 50 goto20
  6.